﻿
Imports VendasBLL
Class FuncoesUC
    Public usuario As New UsuarioBLL
    Private Sub TSBUsuario_Click(sender As System.Object, e As System.EventArgs) Handles TSBUsuario.Click
        If (Not IsNothing(usuario)) Then
            If (usuario.Codigo > 0) Then
                Dim frm As New AlterarSenhaCAD
                frm.objlogin = usuario
                frm.ShowDialog()
            End If
        End If
    End Sub

    Private Sub TSBManual_Click(sender As System.Object, e As System.EventArgs) Handles TSBManual.Click
        Dim frm As New PDF
        frm.var = CurDir() & "\manual.pdf"
        frm.ShowDialog()
    End Sub
End Class
